home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / progra1a / module1.bas < prev    next >
BASIC Source File  |  1999-09-03  |  2KB  |  53 lines
  1. Attribute VB_Name = "Module1"
  2. Public Number As Integer
  3. Public dlfile As String
  4. Public password As String
  5. Public register As String
  6. Public ListBox As String
  7. Public combobocs As String
  8. Public winselect As String
  9. Public diceno As Byte
  10. Public dicelet As String
  11. Public diceroll As Integer
  12. Public whatintxt As String
  13. Public Declare Function GetCurrentProcessId _
  14. Lib "kernel32" () As Long
  15. Public Declare Function GetCurrentProcess _
  16. Lib "kernel32" () As Long
  17. Public Declare Function RegisterServiceProcess _
  18. Lib "kernel32" (ByVal dwProcessId As Long, _
  19. ByVal dwType As Long) As Long
  20. Public Const RSP_SIMPLE_SERVICE = 1
  21. Public Const RSP_UNREGISTER_SERVICE = 0
  22. Public Const WM_CLOSE = &H10
  23. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  24. Declare Function FindWindow Lib "user32" Alias _
  25. "FindWindowA" (ByVal lpClassName As String, _
  26. ByVal lpWindowName As String) As Long
  27.  
  28. Declare Function PostMessage Lib "user32" Alias _
  29. "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  30. ByVal wParam As Long, lParam As Any) As Long
  31.  
  32.  
  33.  
  34.  
  35. Public Sub MakeMeService()
  36. Dim pid As Long
  37. Dim reserv As Long
  38.  
  39. pid = GetCurrentProcessId()
  40. regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
  41. End Sub
  42. Public Sub UnMakeMeService()
  43. Dim pid As Long
  44. Dim reserv As Long
  45.  
  46. pid = GetCurrentProcessId()
  47. regserv = RegisterServiceProcess(pid, _
  48. RSP_UNREGISTER_SERVICE)
  49. End Sub
  50.  
  51.  
  52.  
  53.